procedure TForm1.FormCreate(Sender: TObject);
var
  MyBitmap: TBitmap;
begin
  MyBitmap:=TBitmap.Create;
  MyBitmap.LoadFromFile('bg.bmp');
  Form1.Brush.Bitmap:=MyBitmap;
end;